library(tidyverse)
library(plotly)
f1 <- read_csv("https://github.com/ruhani13/Dataset/raw/main/race_wins_1950-2020.csv",show_col_types = FALSE)
New names:
* `` -> ...1
constructors<-read_csv("https://github.com/ruhani13/Dataset/raw/main/constructors_championship_1958-2020.csv",show_col_types = FALSE) %>% 
  filter(Year %in% (2011:2020))
top_drivers<-f1 %>% 
  group_by(Name) %>% 
  summarise(n=n()) %>% 
  arrange(desc(n)) %>% 
    top_n(15,n)
best_drivers<-top_drivers %>% 
  ungroup() %>% 
  pull(Name)
top_drivers<-filter(f1,Name %in% best_drivers)
p<-ggplot(top_drivers,aes(x = forcats::fct_rev(fct_infreq(Name)), fill = Team,text=paste("Race Wins: ", ..count..)))+
  geom_bar() +
  coord_flip()+
  xlab("Drivers")+
  ylab("Race Wins")+
  ggtitle("Best Driver since 1950 with most race wins")+
  theme_classic()+
  viridis::scale_fill_viridis(discrete=T,option = "D") 
ggplotly(p,tooltip = c("Team","text")) %>% 
  hide_legend()
constructors_champs<-constructors %>% 
  group_by(Team) %>% 
  summarise(n=sum(Points) )%>% 
  arrange(desc(n)) %>% 
   top_n(10,n)
best_teams<-constructors_champs %>% 
  ungroup() %>% 
  pull(Team) 
constructors_champs<-filter(constructors,Team %in% best_teams)
p<-ggplot(constructors_champs,aes(as.factor(Year),Points,col=Team,text=paste("Position: ",Position)))+
  geom_point(aes(size=Points))+
  xlab("Year")+
  ggtitle("F1 constructor standings")+
 scale_colour_viridis_d(option = "plasma")+
  theme_classic()
ggplotly(p,tooltip = c("Team","y","text")) %>% 
  layout(legend = list(orientation = 'h',y=-0.2))
NA
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKCmBgYHtyIG1lc3NhZ2U9RkFMU0Usd2FybmluZz1GQUxTRX0KbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkocGxvdGx5KQpmMSA8LSByZWFkX2NzdigiaHR0cHM6Ly9naXRodWIuY29tL3J1aGFuaTEzL0RhdGFzZXQvcmF3L21haW4vcmFjZV93aW5zXzE5NTAtMjAyMC5jc3YiLHNob3dfY29sX3R5cGVzID0gRkFMU0UpCmNvbnN0cnVjdG9yczwtcmVhZF9jc3YoImh0dHBzOi8vZ2l0aHViLmNvbS9ydWhhbmkxMy9EYXRhc2V0L3Jhdy9tYWluL2NvbnN0cnVjdG9yc19jaGFtcGlvbnNoaXBfMTk1OC0yMDIwLmNzdiIsc2hvd19jb2xfdHlwZXMgPSBGQUxTRSkgJT4lIAogIGZpbHRlcihZZWFyICVpbiUgKDIwMTE6MjAyMCkpCmBgYAoKYGBge3IgfQp0b3BfZHJpdmVyczwtZjEgJT4lIAogIGdyb3VwX2J5KE5hbWUpICU+JSAKICBzdW1tYXJpc2Uobj1uKCkpICU+JSAKICBhcnJhbmdlKGRlc2MobikpICU+JSAKICAgIHRvcF9uKDE1LG4pCmJlc3RfZHJpdmVyczwtdG9wX2RyaXZlcnMgJT4lIAogIHVuZ3JvdXAoKSAlPiUgCiAgcHVsbChOYW1lKQpgYGAKCmBgYHtyIGZpZy5oZWlnaHQ9NSxmaWcud2lkdGg9OH0KdG9wX2RyaXZlcnM8LWZpbHRlcihmMSxOYW1lICVpbiUgYmVzdF9kcml2ZXJzKQpwPC1nZ3Bsb3QodG9wX2RyaXZlcnMsYWVzKHggPSBmb3JjYXRzOjpmY3RfcmV2KGZjdF9pbmZyZXEoTmFtZSkpLCBmaWxsID0gVGVhbSx0ZXh0PXBhc3RlKCJSYWNlIFdpbnM6ICIsIC4uY291bnQuLikpKSsKICBnZW9tX2JhcigpICsKICBjb29yZF9mbGlwKCkrCiAgeGxhYigiRHJpdmVycyIpKwogIHlsYWIoIlJhY2UgV2lucyIpKwogIGdndGl0bGUoIkJlc3QgRHJpdmVyIHNpbmNlIDE5NTAgd2l0aCBtb3N0IHJhY2Ugd2lucyIpKwogIHRoZW1lX2NsYXNzaWMoKSsKICB2aXJpZGlzOjpzY2FsZV9maWxsX3ZpcmlkaXMoZGlzY3JldGU9VCxvcHRpb24gPSAiRCIpIApnZ3Bsb3RseShwLHRvb2x0aXAgPSBjKCJUZWFtIiwidGV4dCIpKSAlPiUgCiAgaGlkZV9sZWdlbmQoKQpgYGAKYGBge3J9CmNvbnN0cnVjdG9yc19jaGFtcHM8LWNvbnN0cnVjdG9ycyAlPiUgCiAgZ3JvdXBfYnkoVGVhbSkgJT4lIAogIHN1bW1hcmlzZShuPXN1bShQb2ludHMpICklPiUgCiAgYXJyYW5nZShkZXNjKG4pKSAlPiUgCiAgIHRvcF9uKDEwLG4pCmJlc3RfdGVhbXM8LWNvbnN0cnVjdG9yc19jaGFtcHMgJT4lIAogIHVuZ3JvdXAoKSAlPiUgCiAgcHVsbChUZWFtKSAKYGBgCgpgYGB7ciBmaWcuaGVpZ2h0PTUsZmlnLndpZHRoPTh9CmNvbnN0cnVjdG9yc19jaGFtcHM8LWZpbHRlcihjb25zdHJ1Y3RvcnMsVGVhbSAlaW4lIGJlc3RfdGVhbXMpCnA8LWdncGxvdChjb25zdHJ1Y3RvcnNfY2hhbXBzLGFlcyhhcy5mYWN0b3IoWWVhciksUG9pbnRzLGNvbD1UZWFtLHRleHQ9cGFzdGUoIlBvc2l0aW9uOiAiLFBvc2l0aW9uKSkpKwogIGdlb21fcG9pbnQoYWVzKHNpemU9UG9pbnRzKSkrCiAgeGxhYigiWWVhciIpKwogIGdndGl0bGUoIkYxIGNvbnN0cnVjdG9yIHN0YW5kaW5ncyIpKwogc2NhbGVfY29sb3VyX3ZpcmlkaXNfZChvcHRpb24gPSAicGxhc21hIikrCiAgdGhlbWVfY2xhc3NpYygpCmdncGxvdGx5KHAsdG9vbHRpcCA9IGMoIlRlYW0iLCJ5IiwidGV4dCIpKSAlPiUgCiAgbGF5b3V0KGxlZ2VuZCA9IGxpc3Qob3JpZW50YXRpb24gPSAnaCcseT0tMC4yKSkKCmBgYA==